Составить программу для вычисления значения функции — PureBasic(Бейсик)

(-1)в степени х cos(Пи/4+х/25)
P=------------------------------- , для х=0 до 10, шаг 1
(Пи/4+х/25)

dim x as Integer
dim P as Double
const Pi = 3.14
CLS
for x = 0 to 10
p = (-1) ^ x * cos(Pi / 4 + x / 25) / (Pi / 4 + x / 25)
print p
next x
end